home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / dndbbs.arc / DND-SRC.LBR / DNDCNF.BAS < prev    next >
Encoding:
BASIC Source File  |  2011-01-28  |  3.9 KB  |  64 lines
  1. 10 DIM TS(12),C$(8):COLOR 14,1,1:CLS:LOCATE 10,20:PRINT "THE ADVENTURE SYSTEM CONFIGURATION PROGRAM"
  2. 20 LOCATE 11,22:PRINT "COPYRIGHT (C) 1987 All Rights Reserved"
  3. 50 ON ERROR GOTO 1000
  4. 60 CLOSE 1:OPEN "I",1,"DNDBBS.CNF":LINE INPUT #1,PA1$:LINE INPUT #1,PA2$
  5. 70 LINE INPUT #1,PRELOG$:LINE INPUT #1,WELCOME$:LINE INPUT #1,NOTICE$:LINE INPUT #1,LOGOFF$:FOR LP=1 TO 12:INPUT #1,TS(LP):NEXT:GOTO 200
  6. 120 COLOR 7,1,1:LOCATE 12,25:PRINT "CONFIGURATION FILE BAD OR MISSING.":LOCATE 13,30:PRINT "CREATING NEW FILE."
  7. 130 CLOSE 1:OPEN "O",1,"DNDBBS.CNF":PRINT #1,"C:\BBS\DATA\":PRINT #1,"C:\BBS\HELP\"
  8. 140 PRINT #1,"PRELOG.DAT":PRINT #1,"WELCOME.DAT":PRINT #1,"NOTICE.DAT":PRINT #1,"LOGOFF.DAT":FOR LP=1 TO 12:PRINT #1,"1":NEXT:GOTO 60
  9. 160 COLOR 7,1,1:LOCATE 14,22:PRINT "UNABLE TO CREATE CONFIGURATION FILE.":END
  10. 200 LOCATE 15,28:COLOR 15:PRINT "Press RETURN to continue."
  11. 210 X$=INKEY$:WHILE X$<>CHR$(13):X$=INKEY$:WEND
  12. 230 CLS:COLOR 7: LOCATE 9,20:PRINT "F1 - SUBDIRECTORY FOR DATA FILES ";:COLOR 15:PRINT PA1$
  13. 231 COLOR 7:LOCATE 10,20:PRINT "F2 - SUBDIRECTORY FOR HELP FILES ";:COLOR 15:PRINT PA2$
  14. 232 COLOR 7:LOCATE 11,20:PRINT "F3 - FILENAME FOR PRELOG FILE    ";:COLOR 15:PRINT PRELOG$
  15. 233 COLOR 7:LOCATE 12,20:PRINT "F4 - FILENAME FOR WELCOME FILE   ";:COLOR 15:PRINT WELCOME$
  16. 234 COLOR 7:LOCATE 13,20:PRINT "F5 - FILENAME FOR NOTICE FILE    ";:COLOR 15:PRINT NOTICE$
  17. 235 COLOR 7:LOCATE 14,20:PRINT "F6 - FILENAME FOR LOGOFF FILE    ";:COLOR 15:PRINT LOGOFF$
  18. 236 COLOR 7:LOCATE 15,20:PRINT "F7 - LOCATIONS FOR TRAINING AREAS";
  19. 250 COLOR 15:LOCATE 24,15:PRINT "PRESS FUNCTION KEY TO CHANGE VALUE OR ESCAPE TO END.";
  20. 260 X$=INKEY$:IF LEN(X$)=2 THEN 270
  21. 265 IF X$=CHR$(27) THEN 420 ELSE 260
  22. 270 FUNCTION=ASC(RIGHT$(X$,1)):IF FUNCTION < 59 OR FUNCTION > 65 THEN BEEP:GOTO 260
  23. 280 ON FUNCTION-58 GOTO 300,310,320,330,340,350,360
  24. 300 LOCATE 20,30:LINE INPUT "DATAFILE SUBDIRECTORY? ",PA1$:GOTO 230
  25. 310 LOCATE 20,30:LINE INPUT "HELPFILE SUBDIRECTORY? ",PA2$:GOTO 230
  26. 320 LOCATE 20,30:LINE INPUT "PRELOG FILENAME? ",PRELOG$:GOTO 230
  27. 330 LOCATE 20,30:LINE INPUT "WELCOME FILENAME? ",WELCOME$:GOTO 230
  28. 340 LOCATE 20,30:LINE INPUT "NOTICE FILENAME? ",NOTICE$:GOTO 230
  29. 350 LOCATE 20,30:LINE INPUT "LOGOFF FILENAME? ",LOGOFF$:GOTO 230
  30. 360 LOCATE 20,30:INPUT "TRAINING AREA FOR FIGHTERS? ",TS(1)
  31. 361 LOCATE 20,1:PRINT STRING$(79,32);
  32. 362 LOCATE 20,30:INPUT "TRAINING AREA FOR MAGIC USERS? ",TS(2)
  33. 363 LOCATE 20,1:PRINT STRING$(79,32);
  34. 364 LOCATE 20,30:INPUT "TRAINING AREA FOR THIEVES? ",TS(3)
  35. 365 LOCATE 20,1:PRINT STRING$(79,32);
  36. 366 LOCATE 20,30:INPUT "TRAINING AREA FOR CLERICS? ",TS(4)
  37. 367 LOCATE 20,1:PRINT STRING$(79,32);
  38. 368 LOCATE 20,30:INPUT "TRAINING AREA FOR PALADINS? ",TS(5)
  39. 369 LOCATE 20,1:PRINT STRING$(79,32);
  40. 370 LOCATE 20,30:INPUT "TRAINING AREA FOR RANGERS? ",TS(6)
  41. 371 LOCATE 20,1:PRINT STRING$(79,32);
  42. 372 LOCATE 20,30:INPUT "TRAINING AREA FOR DUNGEON MASTERS? ",TS(7)
  43. 373 LOCATE 20,1:PRINT STRING$(79,32);
  44. 374 LOCATE 20,30:INPUT "ROOM NUMBER FOR JAIL? ",TS(8)
  45. 375 LOCATE 20,1:PRINT STRING$(79,32);
  46. 376 LOCATE 20,30:INPUT "ROOM NUMBER FOR CLERICAL SANCTUARY? ",TS(9)
  47. 377 LOCATE 20,1:PRINT STRING$(79,32);
  48. 378 LOCATE 20,30:INPUT "ROOM NUMBER FOR PAWN SHOP? ",TS(10)
  49. 379 LOCATE 20,1:PRINT STRING$(79,32);
  50. 380 LOCATE 20,30:INPUT "ROOM NUMBER FOR WEAPONS SHOP? ",TS(11)
  51. 381 LOCATE 20,1:PRINT STRING$(79,32);
  52. 382 LOCATE 20,30:INPUT "ROOM NUMBER FOR CASINO? ",TS(12):GOTO 230
  53. 420 LOCATE 20,30:PRINT "SAVE VALUES? ";
  54. 421 X$=INKEY$:WHILE X$="":X$=INKEY$:WEND:IF X$="Y" OR X$="y" THEN GOTO 430
  55. 425 IF X$="N" OR X$="n" THEN 500 ELSE 421
  56. 430 CLOSE 1:OPEN "O",1,"DNDBBS.CNF":PRINT #1,PA1$:PRINT #1,PA2$
  57. 440 PRINT #1,PRELOG$:PRINT #1,WELCOME$:PRINT #1,NOTICE$:PRINT #1,LOGOFF$
  58. 450 FOR LP=1 TO 12:PRINT #1,TS(LP):NEXT
  59. 460 CLOSE 1
  60. 500 LOCATE 20,30:PRINT "EXIT PROGRAM? ";
  61. 501 X$=INKEY$:WHILE X$="":X$=INKEY$:WEND:IF X$="Y" OR X$="y" THEN COLOR 7,0,0:CLS:END
  62. 502 IF X$="N" OR X$="n" THEN 230 ELSE 501
  63. 1000 IF ERL=60 OR ERL=70 THEN RESUME 120
  64. 1010 IF ERL=130 OR ERL=140 OR ERL=150 THEN